From: Stefan Monnier Date: Fri, 16 Apr 2004 22:26:53 +0000 (+0000) Subject: (xml-parse-tag): Avoid overwriting node-name. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23140 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6206587502db908a415a6da24923fcd2e95f8fa0;p=emacs.git (xml-parse-tag): Avoid overwriting node-name. --- diff --git a/lisp/xml.el b/lisp/xml.el index 408c13ab39b..98241750c73 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -325,10 +325,8 @@ Returns one of: (push (cons (cdar attr) (intern (concat ":" (cdr attr)))) xml-ns)))) - ;; expand element names - (setq node-name (list (xml-maybe-do-ns node-name "" xml-ns))) + (setq children (list attrs (xml-maybe-do-ns node-name "" xml-ns))) - (setq children (list attrs node-name)) ;; is this an empty element ? (if (looking-at "/>") (progn